
;; illustrates pure functional style of programming

;; helper function that creates structured context
;; test:
;; (s-create '((:check 12) (:poke ((:foo 14) (:boo "asf"))) (:str "asdfg")))
(defun s-create (key-value-pairs)
  (let ((result (make-hash-table)))
    (loop for (key value) in key-value-pairs do
	 (setf (gethash key result) (if (atom value)
					value
					(s-create value))))
    result))




(defun do-smth-1 (context arg1 arg2 arg3)
  )


